home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -screenplay- / hd_installers / whdigames / whdigamesa-b / burningrubber.lha / BurningRubberHD / Install_AGA < prev    next >
Text File  |  1980-02-15  |  6KB  |  313 lines
  1. ;****************************
  2.  
  3. (set #sub-dir "data")        ;sub directory containing data files
  4. (set #readme-file "BurningRubber.readme") ;name of readme file
  5. (set #last-disk 1)          ;amount of disks
  6. (set #disk-size 29184)     ;size of each disk
  7.  
  8.  
  9. ;****************************
  10. ;----------------------------
  11. ; Checks if given program is reachable via the path
  12. ; if not abort install
  13. ; IN:  #program - to check
  14. ; OUT: -
  15.  
  16. (procedure P_chkrun
  17.   (if
  18.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  19.     ("")
  20.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  21.   )
  22. )
  23.  
  24. ;----------------------------
  25. ; Create disk-Image using DIC
  26. ; IN:  #dest        - DestinationPath
  27. ;      #CI_diskname - DiskName
  28. ;      #CI_diskno   - DiskNumber
  29. ;      #CI_drive    - DriveToReadFrom
  30. ; OUT: -
  31.  
  32. (procedure P_disk
  33.   (askdisk
  34.     (dest #AD_disk)
  35.     (prompt ("\nInsert Disk \"%s\" in any drive !" #AD_disk))
  36.     (help @askdisk-help)
  37.   )
  38. )
  39.  
  40. (procedure P_image
  41.   (if
  42.     (= 0 
  43.       (run ("cd \"%s\"\nDIC %s FD=%ld LD=%ld SIZE=%ld >CON:///1000//CLOSE" #dest #CI_drive #CI_diskno #CI_diskno #disk-size))
  44.     )
  45.     ("")
  46.     (abort "\"DIC\" has failed to create a diskimage")
  47.   )
  48. )
  49.  
  50. ;****************************
  51.  
  52. (if
  53.   (exists #readme-file)
  54.   (if
  55.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  56.     ("")
  57.     (run ("SYS:Utilities/More %s" #readme-file))
  58.   )
  59. )
  60.  
  61. (set #program "WHDLoad")
  62. (P_chkrun)
  63.  
  64. (set #program "DIC")
  65. (P_chkrun)
  66.  
  67. ; in expert mode ask for source drive
  68. (if
  69.   (= @user-level 2)
  70.   (
  71.     (set #CI_drive
  72.       (askchoice
  73.     (prompt "Select source drive for diskimages")
  74.     (default 0)
  75.     (choices "DF0:" "DF1:" "RAD:" "Enter Device")
  76.     (help @askchoice-help)
  77.       )
  78.     )
  79.     (select #CI_drive
  80.       (set #CI_drive "DF0:")
  81.       (set #CI_drive "DF1:")
  82.       (set #CI_drive "RAD:")
  83.       (set #CI_drive
  84.         (askstring
  85.           (prompt "Select source drive for diskimages")
  86.           (default "DF0:")
  87.           (help @askstring-help)
  88.         )
  89.       )
  90.     )
  91.   )
  92.   (set #CI_drive "DF0:")
  93. )
  94.  
  95. (set @default-dest
  96.   (askdir
  97.     (prompt ("Where should \"%s\" installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  98.     (help @askdir-help)
  99.     (default @default-dest)
  100.     (disk)
  101.   )
  102. )
  103. (set #dest (tackon @default-dest @app-name))
  104. (if
  105.   (exists #dest)
  106.   (
  107.     (set #choice
  108.       (askbool
  109.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted ?" #dest))
  110.         (default 1)
  111.         (choices "Delete" "Skip")
  112.         (help @askbool-help)
  113.       )
  114.     )
  115.     (if
  116.       (= #choice 1)
  117.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  118.     )
  119.   )
  120. )
  121. (makedir #dest
  122.   (help @makedir-help)
  123.   (infos)
  124. )
  125.  
  126. ;----------------------------
  127.  
  128. (copyfiles
  129.   (help @copyfiles-help)
  130.   (source ("BR_AGA.slave" @app-name))
  131.   (newname ("%s.slave" @app-name))
  132.   (dest #dest)
  133. )
  134. (if
  135.   (exists ("%s.newicon" @app-name))
  136.   (set #icon
  137.     (askchoice
  138.       (prompt "\nWhich icon do you like to install ?\n")
  139.       (default 0)
  140.       (choices "Normal" "NewIcon")
  141.       (help @askchoice-help)
  142.     )
  143.   )
  144.   (set #icon 0)
  145. )
  146. (select #icon
  147.   (set #icon ("%s.inf" @app-name))
  148.   (set #icon ("%s.newicon" @app-name))
  149. )
  150. (copyfiles
  151.   (help @copyfiles-help)
  152.   (source #icon)
  153.   (newname ("%s.info" @app-name))
  154.   (dest #dest)
  155. )
  156. (if
  157.   (exists #readme-file)
  158.   (copyfiles
  159.     (help @copyfiles-help)
  160.     (source #readme-file)
  161.     (dest #dest)
  162.     (infos)
  163.   )
  164. )
  165.  
  166. (if
  167.   (exists ("%s.info" #readme-file))
  168.   (copyfiles
  169.     (help @copyfiles-help)
  170.     (source ("%s.info" #readme-file))
  171.     (dest #dest)
  172.   )
  173. )
  174.  
  175. (if
  176.   (= #sub-dir "")
  177.   ("")
  178.   (
  179.     (set #dest (tackon #dest #sub-dir))
  180.     (makedir #dest
  181.       (help @makedir-help)
  182.     )
  183.   )
  184. )
  185.  
  186. (copyfiles
  187.   (help @copyfiles-help)
  188.   (source "RipDisk1.slave")
  189.   (dest #dest)
  190. )
  191.  
  192. (copyfiles
  193.   (help @copyfiles-help)
  194.   (source "RipDisk2.slave")
  195.   (dest #dest)
  196. )
  197.  
  198.  
  199. ;----------------------------
  200. (set #AD_disk "Intro_disk")
  201. (P_disk)
  202.  
  203. (set #CI_diskno 1)
  204. (while
  205.   (<= #CI_diskno #last-disk)
  206.   (
  207.     (set #CI_diskname ("%s Disk %ld" @app-name #CI_diskno))
  208.     (P_image)
  209.     (run ("FileNote Disk.%ld %s Quiet" #CI_diskno @app-name))
  210.     (set #CI_diskno (+ #CI_diskno 1))
  211.   )
  212. )
  213.  
  214. (message "Now I need to rip the files from disk #1. Screen will go black until ripper finished his work.")
  215.  
  216. (run ("cd \"%s\"\nwhdload RipDisk1.slave WriteDelay=10\nDelete Disk.1 RipDisk1.slave ALL QUIET FORCE" #dest))
  217.  
  218. (copyfiles
  219.   (help @copyfiles-help)
  220.   (source ("%s:" #AD_disk))
  221.   (dest #dest)
  222.   (all)
  223. )
  224.  
  225. (set #AD_disk "BR_Test")
  226. (P_disk)
  227.  
  228. (set #CI_diskno 1)
  229. (while
  230.   (<= #CI_diskno #last-disk)
  231.   (
  232.     (set #CI_diskname ("%s Disk %ld" @app-name #CI_diskno))
  233.     (P_image)
  234.     (run ("FileNote Disk.%ld %s Quiet" #CI_diskno @app-name))
  235.     (set #CI_diskno (+ #CI_diskno 1))
  236.   )
  237. )
  238.  
  239. (message "Now I need to rip the files from disk #2. Screen will go black until ripper finished his work.")
  240.  
  241. (run ("cd \"%s\"\nwhdload RipDisk2.slave WriteDelay=10\nDelete Disk.1 RipDisk1.slave ALL QUIET FORCE" #dest))
  242.  
  243. (copyfiles
  244.   (help @copyfiles-help)
  245.   (source ("%s:" #AD_disk))
  246.   (dest #dest)
  247.   (all)
  248. )
  249.  
  250. (set #AD_disk "Euro_Disk")
  251. (P_disk)
  252.  
  253. (copyfiles
  254.   (help @copyfiles-help)
  255.   (source ("%s:" #AD_disk))
  256.   (dest #dest)
  257.   (all)
  258. )
  259.  
  260. (copyfiles
  261.   (help @copyfiles-help)
  262.   (source ("%s:TITLE1.NJW" #AD_disk))
  263.   (newname ("EITLE1.NJW"))
  264.   (dest #dest)
  265. )
  266.  
  267. (copyfiles
  268.   (help @copyfiles-help)
  269.   (source ("%s:TITLE2.NJW" #AD_disk))
  270.   (newname ("EITLE2.NJW"))
  271.   (dest #dest)
  272. )
  273.  
  274. (copyfiles
  275.   (help @copyfiles-help)
  276.   (source ("%s:TITLE3.NJW" #AD_disk))
  277.   (newname ("EITLE3.NJW"))
  278.   (dest #dest)
  279. )
  280.  
  281. (copyfiles
  282.   (help @copyfiles-help)
  283.   (source ("%s:TITLE4.NJW" #AD_disk))
  284.   (newname ("EITLE4.NJW"))
  285.   (dest #dest)
  286. )
  287.  
  288. (copyfiles
  289.   (help @copyfiles-help)
  290.   (source ("%s:TITLE5.NJW" #AD_disk))
  291.   (newname ("EITLE5.NJW"))
  292.   (dest #dest)
  293. )
  294.  
  295. (copyfiles
  296.   (help @copyfiles-help)
  297.   (source ("%s:TITLE6.NJW" #AD_disk))
  298.   (newname ("EITLE6.NJW"))
  299.   (dest #dest)
  300. )
  301.  
  302. (set #AD_disk "USA_Disk")
  303. (P_disk)
  304.  
  305. (copyfiles
  306.   (help @copyfiles-help)
  307.   (source ("%s:" #AD_disk))
  308.   (dest #dest)
  309.   (all)
  310. )
  311.  
  312. (exit)
  313.